home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 02 / tips&tricks / finalcopy / grafik-import.fc < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.5 KB  |  66 lines

  1. /*
  2.      Final-Copy: Objekt -> Grafik - 13.4.94 - von Gunther Lemm
  3. */
  4.  
  5.  
  6. ask=1        /* ask=0 -> Sicherheitsabfrage abgeschaltet */
  7. defdir=":"  /* statt *: kann hier der Name Ihres Grafik-Ordners angegeben werden */
  8.  
  9.  
  10. if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
  11.  
  12. tags="rt_screentofront=true"
  13. titel="ARexx-Macro-Info: Objekt -> Grafik"
  14.  
  15. Address='FinalC'
  16. Options results
  17.  
  18. STATUS PORTNAME
  19. address = result
  20.  
  21. CURRENTOBJECT
  22. if result=0 then 
  23.  do ; back=rtezrequest("   Kein Objekt ausgewählt!   ","OK",titel) ; Exit ; End
  24. id = result
  25.  
  26.  
  27. GETOBJECTTYPE id
  28. if (result=2 |  result=3) then
  29. do ; void=rtezrequest("Falscher Objekttyp für eine Grafikumwandlung!",,titel,tags) ; exit ; end
  30.  
  31. if ask=1 then
  32.  do
  33.  ok=rtezrequest("Soll das aktive Objekt in eine Grafik umgewandelt werden?","Ja|Nein",titel)
  34.  if ok=0 then exit
  35.  end
  36.  
  37. GETOBJECTCOORDS id
  38. coords = result
  39.  
  40. If GetClip("GFX-DIR")="" Then dir=defdir
  41. Else dir=GetClip("GFX-DIR")
  42.  
  43. p = max(index(dir,':'),lastpos('/',dir))
  44. file=delstr(dir,1,p)
  45. dir=substr(dir,1,p)
  46.  
  47. SCRTOBACK
  48.  
  49. filename = rtfilerequest(dir,file,"FinalCopy: Grafik importieren...","Laden!")
  50.  
  51. SCRTOFRONT
  52.  
  53. If filename='' Then Exit
  54. if (index(filename,'"')=0 & index(filename," ")>0) then filename='"'||filename||'"'
  55. void=SetClip("GFX-DIR",strip(filename,B,'"'))
  56.  
  57. 'INSERTILBM '||filename||' POSITION '||coords
  58. if rc>0 then do ; void=rtezrequest("Fehler beim Einfügen der Grafik / beim Öffnen der Grafikdatei!","Sorry",titel,tags) ; exit ; end
  59.  
  60. DELETEOBJECT id
  61.  
  62. REDRAW
  63.  
  64. Exit
  65.  
  66.